home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / pc / dos / biz / easybase / pack1.prg / NETOUT / DEMOAPP / PROC17.PRO < prev    next >
Unknown  |  1995-11-22  |  730 b 
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert MSX Protracker Module (music/msxProtrackerModule) ext Unsupported
1% dexvert Show Partner Mastered Show (other/showPartnerMasteredShow) ext Unsupported
100% file data default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 20 00 64 65 63 6c 61 72 | 65 20 76 61 72 69 61 62 | .declar|e variab|
|00000010| 6c 65 73 0d 0a 20 20 20 | 78 20 61 73 20 6e 75 6d |les..   |x as num|
|00000020| 62 65 72 0d 0a 20 20 20 | 79 20 61 73 20 6e 75 6d |ber..   |y as num|
|00000030| 62 65 72 0d 0a 65 6e 64 | 0d 0a 77 61 69 74 0d 0a |ber..end|..wait..|
|00000040| 27 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 69 |'.......|.......i|
|00000050| 6e 68 61 6e 64 2e 2e 2e | 2e 2e 2e 2e 2e 2e 0d 0a |nhand...|........|
|00000060| 66 6f 72 20 69 6e 68 61 | 6e 64 0d 0a 20 20 20 69 |for inha|nd..   i|
|00000070| 6e 68 61 6e 64 2e 74 6f | 74 61 6c 20 3d 20 69 6e |nhand.to|tal = in|
|00000080| 68 61 6e 64 2e 74 6f 74 | 61 6c 20 2d 20 69 6e 70 |hand.tot|al - inp|
|00000090| 75 74 2e 62 61 6c 61 6e | 63 65 0d 0a 20 20 20 75 |ut.balan|ce..   u|
|000000a0| 70 64 61 74 65 20 72 65 | 63 6f 72 64 0d 0a 6e 65 |pdate re|cord..ne|
|000000b0| 78 74 0d 0a 27 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |xt..'...|........|
|000000c0| 2e 2e 63 75 73 74 6f 6d | 65 72 2e 2e 2e 2e 2e 2e |..custom|er......|
|000000d0| 0d 0a 66 6f 72 20 63 75 | 73 74 6f 6d 65 72 73 20 |..for cu|stomers |
|000000e0| 77 69 74 68 20 66 69 6c | 65 20 3d 20 69 6e 70 75 |with fil|e = inpu|
|000000f0| 74 2e 66 69 6c 65 0d 0a | 20 20 20 63 75 73 74 6f |t.file..|   custo|
|00000100| 6d 65 72 73 2e 79 33 20 | 3d 20 63 75 73 74 6f 6d |mers.y3 |= custom|
|00000110| 65 72 73 2e 79 32 0d 0a | 20 20 20 63 75 73 74 6f |ers.y2..|   custo|
|00000120| 6d 65 72 73 2e 79 32 20 | 3d 20 63 75 73 74 6f 6d |mers.y2 |= custom|
|00000130| 65 72 73 2e 79 31 0d 0a | 20 20 20 63 75 73 74 6f |ers.y1..|   custo|
|00000140| 6d 65 72 73 2e 79 31 20 | 3d 20 63 75 73 74 6f 6d |mers.y1 |= custom|
|00000150| 65 72 73 2e 62 61 6c 61 | 6e 63 65 0d 0a 20 20 20 |ers.bala|nce..   |
|00000160| 63 75 73 74 6f 6d 65 72 | 73 2e 42 61 6c 61 6e 63 |customer|s.Balanc|
|00000170| 65 20 3d 20 30 0d 0a 20 | 20 20 75 70 64 61 74 65 |e = 0.. |  update|
|00000180| 20 72 65 63 6f 72 64 0d | 0a 6e 65 78 74 0d 0a 27 | record.|.next..'|
|00000190| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 74 69 6d |........|.....tim|
|000001a0| 65 20 73 68 65 65 74 73 | 2e 2e 2e 2e 2e 2e 2e 2e |e sheets|........|
|000001b0| 2e 0d 0a 66 6f 72 20 72 | 65 63 6f 72 64 73 20 77 |...for r|ecords w|
|000001c0| 69 74 68 20 66 69 6c 65 | 20 3d 20 69 6e 70 75 74 |ith file| = input|
|000001d0| 2e 66 69 6c 65 0d 0a 20 | 20 20 78 20 3d 20 78 20 |.file.. |  x = x |
|000001e0| 2b 20 31 0d 0a 20 20 20 | 79 20 3d 20 72 65 63 6f |+ 1..   |y = reco|
|000001f0| 72 64 73 2e 74 6f 74 61 | 6c 20 63 6f 70 69 65 73 |rds.tota|l copies|
|00000200| 0d 0a 20 20 20 64 69 73 | 70 6c 61 79 20 73 74 61 |..   dis|play sta|
|00000210| 74 75 73 20 22 45 72 61 | 73 69 6e 67 20 65 6e 74 |tus "Era|sing ent|
|00000220| 72 79 22 20 2b 20 78 20 | 2b 20 22 6f 66 22 20 2b |ry" + x |+ "of" +|
|00000230| 20 79 0d 0a 20 20 20 64 | 65 6c 65 74 65 20 72 65 | y..   d|elete re|
|00000240| 63 6f 72 64 0d 0a 6e 65 | 78 74 0d 0a 27 2e 2e 2e |cord..ne|xt..'...|
|00000250| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 63 6c 65 |........|.....cle|
|00000260| 61 72 20 70 72 65 20 70 | 61 79 6d 65 6e 74 73 2e |ar pre p|ayments.|
|00000270| 2e 2e 0d 0a 69 6e 64 65 | 78 20 6f 66 66 0d 0a 66 |....inde|x off..f|
|00000280| 6f 72 20 50 72 65 70 61 | 79 6d 65 6e 74 73 20 57 |or Prepa|yments W|
|00000290| 69 74 68 20 66 69 6c 65 | 20 3d 20 69 6e 70 75 74 |ith file| = input|
|000002a0| 2e 46 69 6c 65 0d 0a 20 | 20 20 64 65 6c 65 74 65 |.File.. |  delete|
|000002b0| 20 72 65 63 6f 72 64 73 | 0d 0a 6e 65 78 74 0d 0a | records|..next..|
|000002c0| 0d 0a 0d 0a 04 00 43 6c | 65 61 72 20 53 68 65 65 |......Cl|ear Shee|
|000002d0| 74 20 20 20 20 20 20 20 | 20 20                   |t       |        |
+--------+-------------------------+-------------------------+--------+--------+